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Victor Image Processing Library How-to Tips 



Control a TWAIN device with Visual Basic 

The Victor Library TWAIN Support Module is very easy to use from Visual Basic. The simplest implementation is to scan a single 
image using the device's user interface ... 

Dim new_image as imgdes 1 Image descriptor 
Dim rcode as long 1 Return code 

rcode = TWscanimage (hWnd, new_image) 

And to save the image in a TIFF file . . . 

rcode = savetif ( "newimage . tif ", new_image, 0) 

In addition to being easy, the Victor Library control of the TWAIN device is also powerful. You can hide the 
user interface, control the scan conditions, and capture multiple images. 

The example shown here sets the device resolution and capture area then scans up to three images from 
a scanner with automatic document feeder or from a digital camera and saves the images in TIFF files. All 
of the available capture functions are shown, (but are in comment statements), and can easily be 
implemented. 

Capturing multiple images requires a callback function, that part of the example uses the VB AddressOf 
operator available in VB v 5 or greater. 

Capture an Image - the Source Code for VB 

Requires Victor Image Processing Library for 32-bit Windows v 5.1 or higher. 

Add the do the scans function to your . BAS module, not to a .FRM module 



Public Function do_the_scans (hWnd As Long, gsimage As imgdes) As Long 

Dim srect As RECT 

Dim showUI As Long 

Dim rcode As Long 

Dim unit_data As TWAIN_CAP_DATA 

Dim reso_data As TWAIN_CAP_DATA 

Dim pixel_data As T WAI N_C AP_DAT A 

Dim bright_data As TWAIN_CAP_DATA 

unit_data.oneValue.val = TWUN_INCHES 
unit_data.conType = TW0N_0NE VALUE 



reso_data.oneValue.val = 200 ' 200 dpi 
reso_data.conType = TWON_ONEVALUE 
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''pixel_data.oneValue.val = TWPTJ3RAY 'Grayscale 
pixel_data.oneValue.val = TWPT_BW * 1-bit b/w 
pixel_data.conType = TWON_ONEVALUE 

bright_data. one Value. val = 0 1 Range is usually -1000 to 1000 
bright_data.conType = TWON_ONEVALUE 



rcode = TWsetmeasureunit (hWnd, unit_data) 
rcode = TWsetxresolution (hWnd, reso_data) 
rcode = TWsetyresolution (hWnd, reso_data) 
rcode = TW-setbrightness (hWnd, bright_data) 
rcode = TWsetcontrast (hWnd, bright_data) 
rcode = TWsetpixeltype (hWnd, pixel_data) 



' To set the device units 
1 To set the device resolution 
1 To set the device resolution 

T To set brightness 

To set contrast 

' To set the pixel type 



srect.left = 0 
srect.top = 0 
srect. right = 3000 
srect .bottom = 1000 



Scan bed coordinates in 1000th inch 

3 inches wide 
1 inch high 



showUI = 0 
pageno = 0- 



1 Don't show User Interface 



' To invoke the device user interface and capture a single image 
' do_the__scans - TWscanimage (hWnd, gsimage) 

' To hide the user interface and capture a single image 

' do_the__scans = TWscanimageex (hWnd, gsimage, srect, showUI) 

' To invoke the user interface and capture multiple images 

' do_the_scans = TWscanmultipleimages (hWnd, gsimage, AddressOf saveScannedlmage) 



' To hide the user interface and capture multiple images 

do_the_scans = TWscanmultipleimagesex (hWnd, gsimage, srect, showUI, AddressOf saveScannedlm; 



End Function 



Add the saveScannedlmage function to your . BAS module, not to a . FRM module . . 



Public Function saveScannedlmage (j image As imgdes) As Long 

' TWscanmultipleimages ( ) callback function 

Dim rcode As Long 

Dim Filename As String 

' New name for each image captured 
Filename = LCase$ ( "test " & pageno & ".tif") 
pageno = pageno + 1 

' To save all the pages in a single multipage TIFF file 
1 use the savetifpage function instead of savetif 

1 Save the. image 

rcode = savetif ( Filename, jimage, 0) 

1 Stop after 3 pages, for this demonstration 
If (pageno = 3) Then 

rcode = TWAIN_STOP_SCAN 

Else 

rcode = NO_ERROR 
End If 



saveScannedlmage = rcode 
End Function 



Add this menu selection handler to your . FRM 



Private Sub mnuAcquire_Click ( ) 
Dim rcode As Long, j As Long 
Dim gsimage As imgdes 
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On Error Resume Next 



Screen .MousePointer = 11 ' Change mouse pointer to hourglass 

' Store App name to display in Source dialog box. String may contain up to 32 chars. 

TWsetproductname ("Victor Library") 

1 Acquire image (s) from selected/default source 

rcode = do_the_scans (hWnd, gsimage) ' This function has to reside in a . BAS module 

' Last image captured becomes the one to display 
If (rcode = NO_ERROR) Then 

1 Success, free previous image 

freeimage vimage 

1 Assign temp image to vimage 

copyimgdes gsimage, vimage 

MainWnd.BackColor = &HFFFFFF * Erase previous image 
1 Repaint the screen to display the new image 
MainWnd. form_paint 

End If 

Screen. MousePointer = 0 ' Reset the mouse pointer. 



1 Handle any errors 

If rcode <> NO_ERROR Then 

MainWnd. error_handler rcode, "" 
End If 
End Sub 

Add these defines and declarations to your Global module 



1 Image descriptor 

Type imgdes 

ibuff As Long 
stx As Long 
sty As Long 
endx As Long 
endy As Long 
buffwidth As Long 
palette As Long 
colors As Long 
imgtype As Long 
bmh As Long 
hBitmap As Long 

End Type 



Type RECT 

left As Long 

top As' Long 

right As Long 

bottom As Long 
End Type 

' Global variables for this example 
Global vimage As imgdes 
Global pageno As Integer 

Type TW_STR32 

items (-33) As Byte 1 Actually creates a 34-byte array 
End Type 

1 Capability get/set struct 

1 Data for Twain ONE VALUE -type container 

Type TWAIN_ONE VALUE 

val As Integer ' the value 

End Type 

1 Data for Twain ENUM-type container 
Type TWAIN_ENUMTYPE 

tarray(17) As Integer 
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nelems As Integer 1 Number of valid elements in array () 

currentlndex As Integer 1 Index to the value that is currently in effect 
defaultlndex As Integer ' Power-up value 
End Type 

Data for Twain RANGE-type container 
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Type TWA I N_RAN GE 
min As Integer 
max As Integer 
stepSize As Integer 
currentVal As Integer 
defaultVal As Integer 

End Type 



Starting value in the range 

Final value in the range 

Increment from min to max 

The value that is currently in effect 

Power-up value 



1 Capability get/set struct 
Type TWAIN_CAP_DATA 

conType As Integer 1 Container type, TWON_ONEVALUE, TWON_ENUMERATION, or TWON_RANGE, 
oneValue As TWAIN_ONE VALUE * Data if using ONEVALUE-type container 
enumType As TWAIN_ENUMTYPE ' Data if using ENUM-type container 
range As TWAIN_RANGE ' Data if using RANGE-type container 

End Type 

! Container constants (4) 
Global Const TWON_ARRAY = 3 
Global Const TWON_ENUMERATION = 4 
Global Const TWONjONEVALUE = 5 
Global Const TWON_RANGE = 6 

* Pixel type constants (9) 

Global Const TWPT_BW = 0 

Global Const TWPT_GRAY = 1 

Global Const TWPT_RGB - 2 

Global Const TWPT_PALETTE = 3 

Global Const TWPT_CMY = 4 

Global Const TWPT_CMYK = 5 

Global Const TWPT_YUV = 6 

Global Const TWPTJYUVK = 7 

Global Const TWPT CIEXYZ = 8 



' Units constants (6) 

Global Const TWUN_INCHES = 0 

Global Const TWUN_CENTIMETERS 

Global Const TWUN_PICAS = 2 

Global Const TWUN_POINTS = 3 

Global Const TWUN_TWIPS = 4 

Global Const TWUN PIXELS = 5 



= 1 



Global Const TWAIN STOP SCAN 



-67 



Declare Sub freeimage Lib "VIC32.DLL" (image As imgdes) 

Declare Sub copyimgdes Lib "VIC32.DLL" (srcimg As imgdes, desimg As imgdes) 

Declare Function savetif Lib "VIC32.DLL" (ByVal Fname As String, srcimg As imgdes, ByVal cm] 

Declare Function savetifpage Lib "VIC32.DLL" (ByVal Fname As String, srcimg As imgdes, ByVa: 

Declare Function TWdetecttwain Lib "VICTW32.DLL" (ByVal hWnd As Long) As Long 

Declare Function TWgeterror Lib "VICTW32.DLL" () As Long 

Declare Function TWgetmeasureunit Lib "VICTW32.DLL" (ByVal hWnd As Long, ByRef typeUnit As 

Declare Function TWgetpixeltype Lib "VICTW32.DLL" (ByVal hWnd As Long, ByRef pixelType As Tt 

Declare Function TWgetbrightness Lib "VICTW32.DLL" (ByVal hWnd As Long, ByRef brightness As 

Declare Function TWgetcontrast Lib "VICTW32 . DLL" (ByVal hWnd As Long, ByRef contrast As TWA! 

Declare Function TWgetsourcenames Lib "VICTW32.DLL" (ByVal hWnd As Long, ByRef namelist As ' 

Declare Function TWgetsourcencount Lib "VICTW32.DLL" Alias "TWgetsourcenames" (ByVal hWnd A; 

Declare Function TWgetxresolution Lib "VICTW32.DLL" (ByVal hWnd As Long, ByRef xres As TWAII 

Declare Function TWgetyresolution Lib "VICTW32.DLL" (ByVal hWnd As Long, ByRef yres As TWAII 

Declare Function TWscanimage Lib "VICTW32.DLL" (ByVal hWnd As Long, ByRef desimg As imgdes) 

Declare Function TWscanimageex Lib "VICTW32.DLL" (ByVal hWnd As Long, ByRef desimg As imgde: 

Declare Function TWscanmultipleimages Lib "VICTW32.DLL" (ByVal hWnd As Long, ByRef desimg A: 

Declare Function TWscanmultipleimagesex Lib "VICTW32.DLL" (ByVal hWnd As Long, ByRef desimg 
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Declare Function TWselectsource Lib "VICTW32.DLL" (ByVal hWnci As Long) As Long 

Declare Function TWselectsourcebyname Lib "VICTW32.DLL" (ByVal hWnd As Long, ByVal dsname A: 

Declare Function TWsetbrightness Lib "VICTW32.DLL" (ByVal" hWnd As Long, ByRef brightness As 

Declare Function TWsetcontrast Lib "VICTW32.DLL" (ByVal hWnd As Long, ByRef contrast As TWA! 

Declare Function TWsetmeasureunit Lib "VICTW32.DLL 11 (ByVal hWnd As Long, ByRef typeUnit As : 

Declare Function TWsetpixeltype Lib "VICTW32.DLL" (ByVal hWnd As Long, ByRef pixelType As T\ 

Declare Function TWsetxresolution Lib "VICTW32.DLL" (ByVal hWnd As Long, xres As TWAIN_CAP_] 

Declare Function TWsetyresolution Lib "VICTW32.DLL" (ByVal hWnd As Long, yres As TWAIN_CAP_] 

Declare Sub TWsetproductname Lib "VICTW32 . DLL" (ByVal prodName As String) 

Declare Function TWvicversion Lib "VICTW32.DLL" () As Integer 



Victor Image Processing Library homepage | Victor Product Summary | more source code 



Copyright © 1998 Catenary Systems Inc. All rights reserved. Victor Image Processing Library is a 
trademark of Catenary Systems. 
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